home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
j.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
86 lines
8000 FOR J:=1 TO 4 DO // J1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 24
8050 PENUP
8060 BACK 26
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 2 DO // 2
8130 PENDOWN
8140 FORWARD 28
8150 PENUP
8160 BACK 28
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 6 DO // 3
8230 PENDOWN
8240 FORWARD 8
8250 PENUP
8260 FORWARD 9
8270 PENDOWN
8280 FORWARD 11
8290 PENUP
8300 BACK 28
8310 LEFT 90
8320 FORWARD 1
8330 RIGHT 90
8340 ENDFOR J
8350 //
8360 FOR J:=1 TO 2 DO // 4
8370 PENDOWN
8380 FORWARD 10
8390 PENUP
8400 FORWARD 7
8410 PENDOWN
8420 FORWARD 11
8430 PENUP
8440 BACK 28
8450 LEFT 90
8460 FORWARD 1
8470 RIGHT 90
8480 ENDFOR J
8490 //
8500 FOR J:=1 TO 10 DO // 5
8510 PENUP
8520 FORWARD 17
8530 PENDOWN
8540 FORWARD 11
8550 PENUP
8560 BACK 28
8570 LEFT 90
8580 FORWARD 1
8590 RIGHT 90
8600 ENDFOR J
8610 //
8620 FOR J:=1 TO 14 DO // 6
8630 PENUP
8640 FORWARD 17
8650 PENDOWN
8660 FORWARD 9
8670 PENUP
8680 BACK 26
8690 LEFT 90
8700 FORWARD 1
8710 RIGHT 90
8720 ENDFOR J
8730 //
8740 FOR J:=1 TO 2 DO // 7
8750 PENUP
8760 FORWARD 19
8770 PENDOWN
8780 FORWARD 5
8790 PENUP
8800 BACK 24
8810 LEFT 90
8820 FORWARD 1
8830 RIGHT 90
8840 ENDFOR J